Option Explicit
Sub P_Sample017()
    Dim myFso  As Scripting.FileSystemObject
    Dim myType As String
    Set myFso = New Scripting.FileSystemObject
    With myFso.GetDrive("C")			'NϺо
        Select Case .DriveType
            Case 0: myType = ""
            Case 1: myType = "Ϻ"
            Case 2: myType = "w"
            Case 3: myType = "Ϻо"
            Case 4: myType = "CD-ROM"
            Case 5: myType = "RAMϺо"
        End Select
        Debug.Print "Ϻо" & myType
        Debug.Print "Ϻо" & .IsReady
        If .IsReady Then
            Debug.Print "ϺоOЪŶ:" & (.TotalSize / 1024 ^ 2) & "MB"
            Debug.Print "Ϻоiϥνd:" &  _
                (.AvailableSpace / 1024 ^ 2) & "MB"
            Debug.Print "Ϻоťսd:" & (.FreeSpace / 1024 ^ 2) & "MB"
            Debug.Print "Ϻоɮרt:" & .FileSystem
            Debug.Print "ϺоVolumeW:" & .VolumeName
            Debug.Print "Ϻо@ɦW:" & .VolumeName
        End If
    End With
    Set myFso = Nothing				'
End Sub
